|
AutoCAD VBA : Fangpunkte an Blöcken
Frank136 am 15.06.2009 um 16:06 Uhr (0)
Hallo, ich bins schon wieder,sorry wenn ich Euch in letzter Zeit öfters frage, aber bei häufen sich grad die Probleme.Aktuelles Problem: Ich habe mit VBA Blockreferenzen(Quadrate) in eine Zeichnung eingefügt. Wenn ich diese Blöcke verschieben möchte, stehen mir wie gewohnt alle Fangpunkte zur Verfügung. Wenn ich die Zeichnung aber unter Acad 2008 LT öffne kann ich nur den Basispunkt fangen, obwohl in den Einstellungen alle Fangpunkte aktiv sind.Ich hab die Zeichnung auch schon als Dxf abgespeichert, geht a ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Fangpunkte an Blöcken
Frank136 am 16.06.2009 um 16:46 Uhr (0)
Hallo,das Problem scheint doch irgendwie mit VBA zu tun zu haben, denn wenn ich die Blöcke händisch in der Zeichnung erstelle, sind in Acad LT alle Fangpunkte da.Mittlerweile läuft die Sache aber, es war das Service-Pack.Danke für Hilfestellungen.Ich hätte da noch ne Frage, möchte aber nicht schon wieder ein neues Thema aufmachen:Ich hab ne Zeichnung mit vielen Blockrefs. Mit "For Each Entity..." lese ich die aus. Klappte auch alles, bis ich ein paar Blöcke mitten raus gelöscht habe. Jetzt findet "For Each ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : verbotene Zone erkennen
Frank136 am 24.04.2009 um 11:55 Uhr (0)
Hallo zusammen ,bei meinen ersten VBA-Tests bin ich auf folgende Herausforderung gestoßen:Ich möchte in einer Acad-Zeichnung eine Fläche (Polygon) erstellen, in der ich später mittels VBA verschiedene Blöcke einfügen möchte. Wie kann ich das abfragen, ob ich mich mit meinem Einfügepunkt gerade in der erlaubten Zone befinde oder ob ich in der verbotenen Zone bin. Danke für Eure Hilfegruß Frank------------------Wenn das Wasser bis zum Hals steht, sollte man den Kopf nicht hängen lassen...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : wie Excel Makro starten
Frank136 am 19.06.2009 um 22:19 Uhr (0)
Hallo zusammen, ich hab schon wieder nen Problem und find hier keine Lösung (oder bin ich einfach zu blöd um die Suche zu bedienen )Ich habe Daten aus einer Zeichnung in eine Excel Datei geschrieben und möchte diese Daten mittels eines Excel-Makros auswerten.1.Frage: kann ich aus AutoCad dieses Makro starten.2.Frage: wenn ja, wie?3.Frage: Ich kann das Makro auch per Button in Excel starten, würde dafür gerne von AutoCad das passende Excel-Arbeitsblatt direkt angezeigt bekommen. Geht so was?Danke für Hilfe ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : mein Programm wartet nicht
Frank136 am 13.06.2009 um 09:43 Uhr (0)
Hallo zusammen, ich habe ein Programm, welches mir in einer MsgBox mitteilt, dass ich in der AcadZeichnung etwas verändern soll. Wenn ich auf das Ok der MsgBox klicke, soll das Programm angehalten werden und ich möchte ich in der Zeichnung rumbasteln können.Währenddessen soll ein Formular mit einer Schaltfläche "fertig" oben rechts im Bildschirm warten. Wenn ich dann "fertig" drücke, soll das Hauptprogramm weiterlaufen.Das Formular steht auch schon oben rechts und wartet, aber das Programm läuft mir immer ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekte auf Layer erkennen
Frank136 am 02.06.2009 um 11:21 Uhr (0)
Da bin ich mal wieder ,heute gehts um Layer. Ich habe eine Zeichnung mit verschiedenen Layern, auf denen Polylinien und Blockreferenzen liegen.Jetzt möchte ich von einem bestimmten Layer die Koordinaten aller Blockreferenzen auslesen.mein Code:Dim Entity As AcadEntityDim ActLayer As AcadLayerDim InPoint As VariantOn Local Error Resume NextSet ActLayer = ThisDrawing.Layers("Module")ActLayer.Freeze = FalseThisDrawing.ActiveLayer = ActLayerFor Each Entity In ThisDrawing.ActiveLayer If TypeOf Entity Is AcadBl ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Liegt eine Blockref an diesem Punkt?
Frank136 am 30.06.2009 um 09:07 Uhr (0)
Hallo Alfred,dann will ich die Liste mal abarbeiten...1) getKey steht oben, dab ich nur wenig verändert, so dass alles auf einmal reingeschrieben wird:tRetval = "X" & format(Pnt(0),"#.000") & " " & "Y" & format(Pnt(1),"#.000")2)Natürlich ist Dim TestPoint(0 To 2) As Double mit drin.TestPoint(0) = Format(InsertPoint(0), "#.000"): TestPoint(1) = Format(InsertPoint(1), "#.000"): TestPoint(2) = 0Also ich seh hier nur Double?TestPoint(0) = TestPoint(0) + Modulbr + ModulabstUnd hier wird dem Double noch zwei and ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Liegt eine Blockref an diesem Punkt?
Frank136 am 04.07.2009 um 12:44 Uhr (0)
Hallo,dann werde ich mal etwas weiter ausholen:Ich möchte in einer Zeichnung mehrere Polylinien einzeichnen. Ich bekomme aus Excel jede Menge X- und Y-Werte (Z immer 0) und zeichne diese Linien. Das funktioniert alles schon super. Jetzt kommt das Problem:Es kann sein, dass zwei oder meherere Linien horizontal übereinander liegen (vertikal ist mir egal) und ich kann evtl nicht erkennen, wie viele Linien es sind. Als Lösung möchte ich die Linien mit einem kleinen Y-Versatz zeichnen.Ich möchte mir die Y-Werte ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Farbe ändern in einer Blockreferenz
Frank136 am 24.04.2009 um 17:19 Uhr (0)
Hallo Klaus,wow, das sind ja gleich 6 Wünsche auf einmal! Dann werd ich mal...Ich hab mir bis jetzt eine Blockdefinitionen erstellt und in die hab ich nur ein farbiges Rechteck(Polylinie) eingefügt. Ein Attribut hängt auch noch an der Blockdefinition.Jetzt möchte ich mehrere Blockreferenzen in die Zeichnung einfügen, wobei die Rechtecke in den Referenzen unterschiedliche Farben haben sollen. Und als Krönung möchte ich bei jeder Referenz noch das Attribut ändern, was aber schon funktioniert. kleiner Ausschn ...
|
| In das Form AutoCAD VBA wechseln |
